(DEFUN EXPORTED-FUNCTIONS FEXPR (X) NIL)
(DEFUN DISPATCH FEXPR (X) (APPLY 'DEFPROP X))
(DEFUN TOPL () (DO () (NIL) (PRINT (MREADTTY)) (TERPRI)))

(LOAD '(READER FASL DSK))
(LOAD '(DISPLA FASL DSK))

(SETQ NSP 32. NCR 13. NLF 10. TB 9. BS 8. RO 127. LP 40. RP 41. LB 91. RB 93.)
(SETQ $CURSORDISP NIL $NOLABELS NIL LINEL 78. $dskuse nil)


(DEFUN MTERPRI () (TERPRI))
(DEFUN ALIKE1 (X Y) NIL)
(DEFUN MACSYMA1 ()
  (SETQ DLABEL (COND ($NOLABELS '$%) (T (MAKLABEL $OUTCHAR $LINENUM))))
  (SETQ $% $+) (SET DLABEL $%)
  (COND ($DISPFLAG (DISPLA (LIST '(MLABLE) DLABEL $%))))
  (COND ((NOT $NOLABELS) (SETQ $LINENUM (1+ $LINENUM))))
  $%)
(DEFUN NFORMAT (X) X)
(defun cursorpos n nil)
ββ